From 26526ea86a3332e8113d7a028ca099a296ec0566 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 30 Aug 2009 23:46:09 +0000 Subject: [PATCH] (grep-read-files): Strip trailing from buffer names not visiting a file (e.g. cloned buffers). --- lisp/progmodes/grep.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 5c199016c65..bf626f6e308 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -748,7 +748,8 @@ substitution string. Note dynamic scoping of variables.") (defun grep-read-files (regexp) "Read files arg for interactive grep." - (let* ((bn (or (buffer-file-name) (buffer-name))) + (let* ((bn (or (buffer-file-name) + (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name)))) (fn (and bn (stringp bn) (file-name-nondirectory bn))) -- 2.30.2